home comics writing pictures archive about

MainWindowVb.xaml.vb

Language: Visual Basic .NET
Last Modified: 2020-06-27 1:58:34 PM UTC
File Size: 6220 bytes
http://www.penguinstew.ca/example/randomorder/MainWindowVb.xaml.vb
���ImportsSystemComponentModel
ImportsSystemCollectionsObjectModel
ImportsSystemThreading
ImportsSystemWindowsThreading
<summary>
RandomOrderprogramVBnetversion
<summary>
ClassMainWindow
ImplementsINotifyPropertyChanged
Regionconstant
Thenumberofnumberstogenerate
PrivateConstCOUNTAsInteger=10000
EndRegion
RegionINotifyPropertyChangedinterface
PublicEventPropertyChangedAsPropertyChangedEventHandlerImplementsINotifyPropertyChangedPropertyChanged
EndRegion
Regionprivatevariables
TheprivatefieldfortheProgressValueproperty
PrivateprogressVarAsInteger=0
TheprivatefieldfortheStatusLabelproperty
PrivatestatusVarAsString=Ready
Boolsetwhenprogramisclossing
PrivateabortAsBoolean=False
EndRegion
Regionproperties
ThecollectionboundtotheitemsourceforthelistBox
PublicPropertynumbersListSourceAsObservableCollectionOfString
Theintboundtothevalueattributeoftheprogressbar
PublicPropertyProgressValueAsInteger
Get
ReturnprogressVar
EndGet
SetvalueAsInteger
progressVar=value
RaiseEventPropertyChangedMeNewPropertyChangedEventArgsProgressValue
EndSet
EndProperty
ThestringboundtotheContentattributeofthestatuslabel
PublicPropertyStatusContentAsString
Get
ReturnstatusVar
EndGet
SetvalueAsString
statusVar=value
RaiseEventPropertyChangedMeNewPropertyChangedEventArgsStatusContent
EndSet
EndProperty
EndRegion
Regionconstructor
<summary>
ConstructorfortheMainWindowclass
<summary>
PublicSubNew
Thiscallisrequiredbythedesigner
InitializeComponent
SetuplistBoxbinding
numbersListSource=NewObservableCollectionOfString
numberListItemsSource=numbersListSource
EndSub
EndRegion
Regioneventhandlers
<summary>
Calledwhentheuserclicksonthegeneratebutton
<summary>
<paramname=sender>Objectsendingtheevent<param>
<paramname=e>RoutedEventArgsfortheevent<param>
PrivateSubgenerateButton_ClicksenderAsSystemObjecteAsSystemWindowsRoutedEventArgs
Setstatusanddisablebutton
generateButtonIsEnabled=False
StatusContent=Generating
numbersListSourceClear
Startbacgroundthreadtogeneratenumbers
DimworkerThreadAsThread=NewThreadAddressOfgenerateNumbers
workerThreadIsBackground=True
workerThreadStart
EndSub
<summary>
Calledwhentheprogramisclossed
<summary>
<paramname=sender>Objectsendingtheevent<param>
<paramname=e>CancelEventArgsfortheevent<param>
PrivateSubWindow_ClosingsenderAsSystemObjecteAsSystemComponentModelCancelEventArgs
Setthevariabletoindicatetothebackgroundthreadthattheprogramisclosing
abort=True
EndSub
EndRegion
Regionworkermethods
<summary>
GeneratesaseriesofnumbersinrandomorderandaddsthemtothelistBox
<summary>
PrivateSubgenerateNumbers
DimnumbersAsListOfInteger=NewListOfIntegerCOUNT
DimprogressSpaceAsInteger=COUNT100
DimprogressAmmountAsInteger=1
DimsumAsInteger=0
DimexpectedSumAsInteger=COUNTCOUNT12
DimrandomAsRandom=NewRandom
DimstartTimeAsDateTime=DateTimeNow
DimactionAsAction
SetprogressAmountifprogressSpaceis0
IfprogressSpace=0Then
progressSpace=1
progressAmmount=100COUNT
EndIf
Populatelist
ForiAsInteger=0ToCOUNT1Step1
numbersAddi1
Next
ForiAsInteger=0ToCOUNT1Step1
Ifprogramisabortedreturnsothethreadcancloseproperly
IfabortThen
Return
EndIf
Generatearandomindex
DimindexAsInteger=randomNext0numbersCount
action=NewActionSub
numbersListSourceAddnumbersItemindexToString
EndSub
MeDispatcherInvokeactionDispatcherPriorityApplicationIdle
Addthenumbertothesum
sum=numbersItemindex
Removethenumberfromthelist
numbersRemoveAtindex
IfiModprogressSpace=0Then
action=NewActionSub
ProgressValue=progressAmmount
EndSub
MeDispatcherInvokeactionDispatcherPriorityApplicationIdle
EndIf
Next
DimendTimeAsDateTime=DateTimeNow
Resettheviewanddisplayamessageboxwiththeressults
action=NewActionSub
ProgressValue=0
generateButtonIsEnabled=True
StatusContent=Done
MessageBoxShowStringFormatSumofnumbers={0}vbCrLfExpectedsum={1}_
vbCrLfDifference={2}_
vbCrLfElapsedtime={3}s_
sumexpectedSumexpectedSumsumendTimeSubtractstartTimeTotalSeconds
EndSub
MeDispatcherInvokeactionDispatcherPriorityApplicationIdle
EndSub
EndRegion
EndClass
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190